home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / PublicDomain / Anwendungen / BlueInstall / Install < prev    next >
Text File  |  1999-04-16  |  2KB  |  85 lines
  1. ; Installer script For BlueInstall v. 1.0
  2. ; by Marek Zvolsky 17.04.99
  3.  
  4. (complete 0)
  5.  
  6. (Message
  7.     "\n\nWelcome to Install BlueInstall.\n"
  8. ;   (ALL)
  9. )
  10.  
  11. (complete 5)
  12.  
  13. (Set #DEST0
  14.     (askdir
  15.         (prompt "Where do you want to have BlueInstall? A drawer called BlueIstall will be created")
  16.         (help (cat @askdir-help)
  17.         )
  18.         (default "Work:")
  19.     )
  20. )
  21.  
  22. (complete 12)
  23.  
  24. (Set #DEST (tackon #DEST0 "BlueInstall"))
  25. (makedir #DEST (infos))
  26.  
  27. (Set @default-dest #DEST)
  28.  
  29. (complete 20)
  30.  
  31. (copyfiles (dest #DEST) (source "BlueInstallPrefs"))
  32. (copyfiles (dest #DEST) (source "BlueInstallPrefs.info"))
  33. (copyfiles (dest #DEST) (source "BlueInstall.guide"))
  34. (copyfiles (dest #DEST) (source "BlueInstall.guide.info"))
  35.  
  36. (complete 35)
  37.  
  38. (set #DEST2 (tackon #DEST "bin"))
  39. (makedir #DEST2)
  40.  
  41. (copyfiles (dest #DEST2) (source "bin/BlueInstall"))
  42.  
  43. (set #DEST3 (tackon #DEST "Templates"))
  44. (makedir #DEST3)
  45. (copyfiles (dest #DEST3) (source "templates/ExampleTemplate"))
  46. (copyfiles (dest #DEST) (source "Templates.info"))
  47.  
  48.  
  49. (complete 65)
  50.  
  51. (Set #CATALOGS
  52.     (askoptions
  53.         (Prompt "Catalogs to install")
  54.         (help (cat @askoptions-help))
  55.         (default 2)
  56.         (choices "English (built-in)" "Czech (KOI8)" "Czech (E2)")
  57.     )
  58. )
  59.  
  60.  
  61. (If (in #CATALOGS 0)
  62.     (copyfiles (source "catalogs/english/BlueInstall.catalog") (dest "LOCALE:Catalogs/english/")))
  63. (If (in #CATALOGS 1)
  64.     (copyfiles (source "catalogs/ÃeÓtina/BlueInstall.catalog") (dest "LOCALE:Catalogs/ÃeÓtina/")))
  65. (If (in #CATALOGS 2)
  66.     (copyfiles (source "catalogs/çeský/BlueInstall.catalog") (dest "LOCALE:Catalogs/çeský/")))
  67.  
  68.  
  69. (complete 90)
  70.  
  71.  
  72. (If (= (exists "Libs:reqtools.library") 0)
  73.     (copylib
  74.         (source "libs/reqtools.library")
  75.         (dest "libs:")
  76.         (confirm)
  77.         (prompt "\n\nInstall reqtools.library?\nOnly If You don't have it installed")
  78.         (help
  79.             (cat @copylib-help)
  80.         )
  81.     )
  82. )
  83.  
  84. (complete 100)
  85.